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EWDEL = delete a Line from the screen' 

WDEL ¢ ! delete a Line from the screen 

pDENT = 'v04-000' ! File: SCRNEWDEL.BLI Edit: JBS1007 
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BEGIN 
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'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'® DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. 

bs ALL RIGHTS RESERVED. 

'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
'e LY IN ACCORDANCE WITH THE T OF SUCH LICENSE AND WITH THE 
'w INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
'® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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'® 

ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
it AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
is CORPORATION. 

ie DIGITAL ASSUMES NO RESPONS 
is SOFTWARE ON EQUIPMENT WHIC 
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Se 
FACILITY: EDT == The DEC Standard Editor 
ABSTRACT: 


This module updates the screen information data structure to 
reflect the deletion of a Line. 
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ENVIRONMENT: Runs at any access mode - AST reentrant 
AUTHOR: Sharon M. Burlingame, CREATION DATE: September 15, 1982 
MODIFIED BY: 


1-001 - Original. SMB 15-Sep-1982. 

- O - Fix up the original to conform to new design SMB 105 ct-1982 
= Add more code © remove existing bugs. S$ 2g-Octol 

1-004 = Change updating of the screen petoters. 9-0ct-1982 

1-005 = Don't set the rebuild thee. JBS 05-Jan-1 

1- $ - Also invalidate EDTSSA_CSR_SCRPTR if it is deleted. 38s 20-May-1983 
07 - Improve the appearance of fhe Listing. JBS 17-Jun-19 
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EWDEL .BLI; 
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: NOVALUE; 


EDTSSSC_LNDEL 
EXTERNAL REFERENCES: 
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REQUIRE ‘EDTSRC: TRAROUNAM’ ; 
INCLUDE FILES: 
EQUATED SYMBOLS: 
OWN STORAGE: 


FORWARD ROUTINE 
REQUIRE ‘EDTSRC:EDTREQ'; 
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- delete a Line from the screen’ 


L = delete a Line from the screen 18 
L = delete a Line from the screen 
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EOB screen pointer 


' Delete a } 

! Screen pointer to delete 
Allocated memor 
Bottom screen 
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FUNCTIONAL DESCRIPTION: 


FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS 

T$$ 

T 
T$$. 
T$$. 
T$$ 
T$$. 
T$$ 
T$$ 
T$$ 
IMPLICIT OUTPUTS: 
$ 
$ 
$A 
$ 
$ 
$ 
$A 
$A 
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ROUTINE VALUE 

NONE 
SIDE EFFECTS: 

NONE 
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E NEWDEL EDTSSCRNEWDEL = delete a Line from the screen 16-5 Sep-19 AX-11 Bliss-32 V4.0-74 Page 4 
vee ED SSCNENDEL - delete a Line from the screen 14-Sep- 1386 93 34 $f ter. SRCISCRNEWDEL .BLI; (3) 

7 DISSA_TOP_SCRPTR : REF SCREEN_LINE, : Top screen pointer 

7 DISSA_CSR_SCRPTR : REF SCREEN LINE, i pyrrent screen pointer 

f DTSSA_FST-AVLN ; REF SCREEN_LINE, if rst ava lable screen info memory 

EDISSA_FST_SCRETR : REF SCREEN_LINE, i Pointer to first screen Line info 

4 EDTSSA_LST_SCRPTR : REF SCREEN_LINE; i Pointer to last screen Line info 

7 

P ScRPTR : REF SCREEN_LINE; ! Screen pointer parameter 

7 CAL 

7 NXT_ADDR : ner SCREEN_LINE ! Address of next Line info 

f PREV_ADDR : REF SCREER_LINE; ! Address of previous Line info 

7 '¢ 

} Find the next and previous pointers of the Line being deleted. 

7 "NXT_ADDR = .SCRPTR CSCR_NXT_LINE); 

, PREV_ADDR = .SCRPTR CSCR_PRO_LINE); 

f Check for deleting the first Line of the screen data base. 
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; ? : 
; 7 IF (.EDTSSA_FST_SCRPTR EQLA .SCRPTR) : 
; 7 THEN ° 
; 7 BEGIN . 
; 7% EDTSS$A_FST_SCRPTR = .NXT_ADOR; : 
3 74 EDTSSA_FST_SCRPTR Cs¢ *PRY LINE) = 0; ° 
; 074 END; : 
; ea Ste ; 
P4 ' : o 
3 Ree ; Check for deleting the last Line of the screen data base. ‘ 
Py U ead Ld 
3 074 : 
; 074 IF (.SCRPTR EQLA .EDTSSA_LST_SCRPTR) $ 
; 074 THEN é 
3 0750 BEGIN F 
; 0751 EDTS$A_LST_SCRPTR = gprEY ; 
; Ore EDTS$A_LST-SCRPTR CSCR_NXT ADINED = = 0; : 
3 4 END; : 
: 7 $ ‘+ ; 
3 164} t Check for EOB deleted off the screen : 
3 D 3 
; 07 ° 
3 738 IF (.EDTSSA_EOB_SCRPTR EQLA .SCRPTR) THEN EDTSSA_EOB_SCRPTR = 0; : 
; 38 143 Check for deleting the top Line from the data base. : 
; U + faaad e 
$ 19% 764 3 
; 195 0765 IF (.EDTSSA_TOP_SCRPTR EQLA .SCRPTR) THEN EDTSSA_TOP_SCRPTR = 0; : 
i 192 ieee 
; 198 re _Check for deleting the bottom Line from the data base. : 
. ' e 
; 200 07 3 
; $04 58 IF (.EDTSSA_BOT_SCRPTR EQLA .SCRPTR) THEN EDTSSA_BOT_SCRPTR = 0; é 
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1+ 
! Check for oorene the current Line from the data base. This will Likely 
cause the screen data base to get rebuilt. 
IF (.EDTSSA_CSR_SCRPTR EQLA .SCRPTR) THEN EDTSSA_CSR_SCRPTR = 0; 
+ : 
Fix up the previous and next pointers. 
IF (.PREV_ADDR NEQA 0) THEN PREV_ADDR CSCR_NXT_LINE] = .NXT_ADDR; 
IF (.NXT_ADDR NEQA 0) THEN NXT_ADDR CSCR_PRV_LINE] = .PREV_ADDR; 
1+ 
! The Line being deleted is indicated by SCRPTR. If there 
! are no screen Line buffers in the free List, then start 
anew List; otherwise add the memory to the front of the current List. 


SCRPTR CSCR_NXT_LINE] = .EDTSSA_FST_AVLN; 
INE) = -1; ! For debugging 


SCRPTR; 

DTSSG_MEM_CNT - 1; 

Make sure the counter agrees with the data base. 
IF 0 


THEN 
BEGIN 
LOCAL 
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SCRPTR1 : REF SCREEN_LINE, 
38 808 SCRPTR2 : REF SCREEN“LINE; 
40 10 COUNT = 0; 
41 1 SCRPTR1 = .EDTSS$A_FST_SCRPTR; 
4g lg ASSERT (.SCRPTR1 CSCRTPRV_LINE) EQL 0); 
64 14 WHILE (.SCRPTR1 NEQA 0) DO 
45 15 BEGIN 
46 18 COUNT = .COUNT + 1; 
4 1 SCRPTRE = .SCRPTRI: 
48 18 SCRPTR1 = .SCRPTR1 CSCR_NXT_LINE); 
50 0 IF (.SCRPTR1 NEQA 0) 
31 1 THEN 
¢ ; BEGIN 
5 ASSERT (.SCRPTR1 CSCR_PRV LINE] EQLA .SCRPTR2); 
$5 4 ASSERT ({SCRPTR1 NEQA”.EDTS$A_FST_SCRPTR); 
4] ; 
58 8 
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iss-32 V4.0-74 P 
SC_LNDEL = delete a Line from the screen 14-Sep- EDT. SRCJSCRNEW H ae 35 


DEL.BLI; (3) 


: 25 ASSERT (.SCRPTR2 EQLA . ges LST SCRPTR); 
i 96 ASSERT (SCOUNT EQL .EDT$$G_MER_CNT); 
: 26 
; 8 END; ! of routine EDTSSSC_LNDEL 
-TITLE EDTSSCRNEWDEL EDTSSCRNEWDEL - delete a Line fro 
3 m the screen 
.IDENT \V04-000\ 
.EXTRN EDTS$$G_MEM_CNT, EDTSSA_BOT_SCRPTR 
“EXTRN EDTS$$A_EOB-SCRPT 
SEXTRN EDTS$A~TOP~SCRPTR 
SEXTRN EDTSSA~CSR~SCRPTR 
XTRN EDTS$A_FST_AVLN 
SEXTRN EDTSSA-FST-SCRPTR 
TEXTRN EDTS$A~LST~SCRPTR 
SEXTRN EDTSSIANTER-ERR 
.PSECT _EDTSCODE,NOWRT, SHR, PIC,2 
O7FC 00000 ENTRY EDTSSSC_ LNDEL, Save R2,R3,R4,R5,R6,.R7.R8.- ; 0660 
5A 000000006 9€ v EDTSsA. FST_AVLN, R10 F 
9 G 9E MOVAB EDTSSA-CSR“SCRPTR, R9 : 
: 6 gE MOVAB EDTS$$A~BOT-SCRPTR. Rg : 
G E v EDT$$A-TOP-SCRPTR. R : 
é 6 9E v EDTS$A_EOB-SCRPTR, R¢ ; 
G 9E MOVAB EDTSSA“FST-SCRPTR. R : 
4 000 G 9 MOVAB EDTSSA“LST“SCRPTR. : 
1 4 AC p MOVL § SCRPTR> R1 : 0731 
é 61 7D MOVG (R1), PREV_ADDR ; O73¢ 
5 65 D4 CPL EDTSSA_ FST“SCRPTR, R1 : 07 
65 33 06 MOVL NXT gfDOR EDTS$$A_FST_SCRPTR + 0740 
0 65 v0 ROVL EDITS SA_FST_SCRPTR, RO ; 0741 
64 $f D1 CAPL Rl. EDTSS$A_LST_SCRPTR + 0748 
4 33 06 MOVL § PREV_ADDR, EDTSSA_LST_SCRPTR : 0751 
0 64 OD MOVL  EDTSSA_LST_SCRPTR> RO™ : 0752 
04 AO D4 CLRL 4(RO) ~ F 
51 6 f cnPL EDTSSA_ EOB_SCRPTR, R1 ; 0759 
66 D CLRL  EDT$$A_EOB_SCRPTR : 
51 ‘ D1 cnet EDTSSA- TOP“SCRPTR, R1 ; 0765 
85 i CLRL = EDTS$A_TOP_SCRP : 
51 6 D] cnPL EDTSSA_ BOT” ~SERPTR, Rl ; 0771 
6 he CLRL  EDT$$A_BOT_SCRP : 
51 cnPL EDTSSA- CSR~ SERPTR. R1 ; 0778 
5 D CLRL  EDTSSA_CSR_SCRPTR : 
08 TSTL PREV_ADDR ~ > 0784 
4 BEQL 46s 7$ : 


Se 


Vou=000 EDTSSSCALNDEL Senigallia ieee :HZ:4 HABA dtbadbol 07 itm 


04 A2 te MOVL § NXT_ADDR, 4(PREV_ADDR) ; 
7$: sit NXTCA ADDR t 0786 

6 MOVL 4 ADDR, (NXT_ADDR) : 
04 es mOvL EDTSEA Fst -AVLN; 4(R1) 793 
1 MNEGL 3: 0794 
A i: MOVL sors FST_AVLN + 0795 
000000006 A DECL a G_MEM~CNT™ : 196 
4 R 83 


; Routine Size: 145 bytes, Routine Base: _EDTSCODE + 0000 


8s Og3s : ! <BLF /PAGE> 


ERTSSERNEUDEL 


a line from the screen 


DISesc END ot NDEL ts “Selet ete a The from the screen “$e0-1984 9}: 34; 4 
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PSECT SUMMARY 

Name Bytes Attributes 

_EDTSCODE 145 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, 
Library Statistics 
eusceuse Symbols -------- Pages 

File Total Loaded Percent Mapped 
_8255SDUA EDT.SRCJEDT.L32; 377 12 4 
“35 aSpU ASB: EDT.SRCJPSECTS.L i3as1 e 1 F ; 


COMMAND QUALIFIERS 


PL SESE Cher FGLD, SNE TEAL GPT ERESE) /UOTRACEBACKAL, $EM4 ESS SCRNEUDEL /OR IBIS: 


Size 145 ode + 0 data bytes 
Run Time: 14.8 

Elapsed Time: :19.6 

Lines/CPU Min: 739 
Lexemes/CPU-Min: 121 


"Y Used: 98 pages 
Compilation Complete 


AX-11 Oh fesnze 4.0-74 
EDT. SRCISCRNEWDEL .BLI; 


! of module EDTSSCRNEWDEL 


CON, PIC,ALIGN(2) 


Processing 
Time 


80:00:4 
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